#!/usr/bin/perl
# 1. Rename index.cgi
# 2. Change variables below
# 3. Upload
# 4. Issue at telnet prompt chmod 755 index.cgi
# 5. Try to 'look' at directory you installed this in
# index.cgi copyright 1999 2000 Gregory Swofford
# DISCLAIMER OF WARRANTY
# THIS SOFTWARE AND ACCOMPANYING DOCUMENTATION ARE PROVIDED "AS IS" AND
# WITHOUT WARRANTIES AS TO PERFORMANCE OF MERCHANTABILITY OR ANY OTHER
# WARRANTIES WHETHER EXPRESSED OR IMPLIED. BECAUSE OF THE VARIOUS HARDWARE
# AND SOFTWARE ENVIRONMENTS INTO WHICH THIS PROGRAM MAY BE USED, NO WARRANTY OF
# FITNESS FOR A PARTICULAR PURPOSE IS OFFERED. THE USER MUST ASSUME THE
# ENTIRE RISK OF USING THIS PROGRAM. ANY LIABILITY OF WEB-STORE.NET WILL BE
# LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT OR REFUND OF PURCHASE PRICE.
# IN NO CASE SHALL WEB-STORE.NET BE LIABLE FOR ANY INCIDENTAL, SPECIAL OR
# CONSEQUENTIAL DAMAGES OR LOSS, INCLUDING, WITHOUT LIMITATION, LOST PROFITS
# OR THE INABILITY TO USE EQUIPMENT OR ACCESS DATA, WHETHER SUCH DAMAGES ARE
# BASED UPON A BREACH OF EXPRESS OR IMPLIED WARRANTIES, BREACH OF CONTRACT,
# NEGLIGENCE, STRICT TORT, OR ANY OTHER LEGAL THEORY. THIS IS TRUE EVEN IF
# WEB-STORE.NET IS ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. IN NO CASE WILL
# WEB-STORE.NET LIABILITY EXCEED THE AMOUNT OF THE LICENSE FEE ACTUALLY PAID
# BY LICENSEE TO WEB-STORE.NET.
# Change these variables
$mailto = "support\@cpunet.net.com";
$orgname = "Smart-Store 3.1";
$sendmail = "/usr/sbin/sendmail";
$linkback = "http://www.cpunet.net";
# end changes
print "Content-type: text/html\n\n";
print "HACKING ATTEMPT REPORTED\n";
print "\n";
print "HACKING ATTEMPT REPORTED:
\n";
print "![](\"ani_skl.gif\")
\n";
print "\n";
print "| Here is what we know about YOU. |
|---|
\n";
print "| Variable Name | Current Value |
\n";
foreach $fieldname(keys %ENV){
print "| $fieldname | $ENV{$fieldname} |
\n\n";
}
print "
\n";
print "Back to $orgname Homepage\n";
print "\n";
exit;